home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2005 October / PCWOCT05.iso / Software / Resources / CutePDF 2.3 / converter.exe / GNUGS / PDF_MAIN.PS < prev    next >
Text File  |  2003-01-29  |  25KB  |  813 lines
  1. %    Copyright (C) 1994, 2000 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is provided AS-IS with no warranty, either express or
  4. % implied.
  5. % 
  6. % This software is distributed under license and may not be copied,
  7. % modified or distributed except as expressly authorized under the terms
  8. % of the license contained in the file LICENSE in this distribution.
  9. % 
  10. % For more information about licensing, please refer to
  11. % http://www.ghostscript.com/licensing/. For information on
  12. % commercial licensing, go to http://www.artifex.com/licensing/ or
  13. % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  14. % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
  15.  
  16. % $Id: pdf_main.ps,v 1.35.2.7.2.2 2003/01/28 11:54:11 ghostgum Exp $
  17. % pdf_main.ps
  18. % PDF file- and page-level operations.
  19.  
  20. /.setlanguagelevel where { pop 2 .setlanguagelevel } if
  21. .currentglobal true .setglobal
  22. /pdfdict where { pop } { /pdfdict 100 dict def } ifelse
  23. pdfdict begin
  24.  
  25. % Patch in an obsolete variable used by some third-party software.
  26. /#? false def
  27.  
  28. % Test whether the current output device handles pdfmark.
  29. /.writepdfmarkdict 1 dict dup /pdfmark null put readonly def
  30. /.writepdfmarks {    % - .writepdfmarks <bool>
  31.   currentdevice //.writepdfmarkdict .getdeviceparams
  32.   mark eq { false } { pop pop true } ifelse
  33.   systemdict /DOPDFMARKS known or 
  34. } bind def
  35.  
  36. % For simplicity, we use a single interpretation dictionary for all
  37. % PDF graphics execution, even though this is too liberal.
  38. /pdfopdict mark
  39.   objopdict { } forall
  40.   drawopdict { } forall
  41.   /endstream { exit } bind
  42.   (%%EOF) cvn { exit } bind        % for filters
  43.     % PDF 1.1 operators
  44.   /BX { /BXlevel BXlevel 1 add store } bind
  45.   /EX { /BXlevel BXlevel 1 sub store } bind
  46.   /PS { cvx exec } bind
  47.     % PDF 1.2 operators
  48.   /BMC { pop } bind
  49.   /BDC { pop pop } bind
  50.   /EMC { }
  51.   /MP { pop } bind
  52.   /DP { pop pop } bind
  53. .dicttomark readonly def
  54.  
  55. % ======================== Main program ======================== %
  56.  
  57. end            % pdfdict
  58. userdict begin
  59.  
  60. /defaultfontname /Times-Roman def
  61.  
  62. % Make sure the registered encodings are loaded, so we don't run the risk
  63. % that some of the indices for their names will overflow the packed
  64. % representation.  (Yes, this is a hack.)
  65. SymbolEncoding pop
  66. DingbatsEncoding pop
  67.  
  68. % Redefine 'run' so it recognizes PDF files.
  69. systemdict begin
  70. /.runps /run load def
  71. /run {
  72.   dup type /filetype ne { (r) file } if
  73.   dup ( ) .peekstring {
  74.     (%) eq {
  75.       dup (     ) .peekstring {
  76.     (%PDF-) eq {
  77.         dup (%stdin) (r) file eq {
  78.           % Copy PDF from stdin to temporary file then run it.
  79.           null (w+) //systemdict /.tempfile get exec exch 3 1 roll
  80.           % stack: tempname stdin tempfile
  81.           1024 string
  82.           {
  83.         % stack: tempname stdin tempfile string
  84.         2 index 1 index readstring
  85.         exch 3 index exch writestring
  86.         not { exit } if
  87.           }
  88.           loop
  89.           pop exch closefile
  90.           % stack: tempname tempfile
  91.           dup 0 setfileposition
  92.           dup runpdf
  93.           closefile deletefile
  94.         } {
  95.           runpdf
  96.         } ifelse
  97.       } {
  98.         cvx .runps % doesn't start with %PDF-
  99.       } ifelse
  100.     } {
  101.       pop cvx .runps % didn't read 5 characters
  102.     } ifelse
  103.     } {
  104.       cvx .runps % didn't start with %
  105.     } ifelse
  106.   } {
  107.     pop closefile % file was empty
  108.   } ifelse
  109. } bind odef
  110. currentdict /runpdfstring .undef
  111.  
  112. /runpdf {        % <file> runpdf -
  113.    userdict begin
  114.     % It turns out that the PDF interpreter uses memory more
  115.     % effectively if it is run under at least one level of save.
  116.     % This is counter-intuitive, and we don't understand why it happens,
  117.     % but the improvement is significant.
  118.    /PDFTopSave save def
  119.    /Page# null def
  120.    /Page null def
  121.    /DSCPageCount 0 def
  122.    /PDFSave null def
  123.    GS_PDF_ProcSet begin
  124.    pdfdict begin
  125.    pdfopen begin
  126.    Trailer /Root oget /Pages oget /CropBox knownoget
  127.     { mark /CropBox 3 -1 roll /PAGES pdfmark
  128.     }
  129.    if
  130.    /FirstPage where 
  131.     { pop FirstPage dup pdfpagecount gt
  132.       { (\nRequested FirstPage is greater than the number of pages in the file: ) print
  133.         pdfpagecount = flush
  134.       } if
  135.     } {
  136.       1
  137.     } ifelse
  138.    1
  139.    /LastPage where { pop LastPage pdfpagecount .min } { pdfpagecount } ifelse
  140.    2 index 1 index gt
  141.     { (   No pages will be processed \(FirstPage > LastPage\).) = flush }
  142.     { QUIET not
  143.       { (Processing pages ) print 2 index =only ( through ) print dup =only
  144.         (.) = flush
  145.       }
  146.      if
  147.     }
  148.    ifelse
  149.     { dup /Page# exch store
  150.       QUIET not { (Page ) print dup == flush } if
  151.       pdfgetpage pdfshowpage
  152.     } for
  153.    currentdict pdfclose
  154.    end            % temporary dict
  155.    end            % pdfdict
  156.    end            % userdict
  157.    end            % GS_PDF_ProcSet
  158.    PDFTopSave restore
  159. } bind def
  160. end            % systemdict
  161. % Redefine the procedure that the C code uses for running piped input.
  162. % It is OK to use { (%stdin) run } here, because a startjob cannot occur.
  163. /.runstdin {
  164.   { (%stdin) run } execute0
  165. } bind def
  166.  
  167. end            % userdict
  168. pdfdict begin
  169.  
  170. % ======================== File parsing ======================== %
  171.  
  172. % Read the cross-reference and trailer sections.
  173.  
  174. /traileropdict mark
  175.   (<<) cvn { mark } bind
  176.   (>>) cvn /.dicttomark load
  177.   ([) cvn { mark } bind        % ditto
  178.   (]) cvn dup load
  179. %  /true true        % see .pdfexectoken in pdf_base.ps
  180. %  /false false        % ibid.
  181. %  /null null        % ibid.
  182.   /R { /resolveR cvx 3 packedarray cvx } bind    % see Objects below
  183.   /startxref /exit load
  184. .dicttomark readonly def
  185.  
  186. % Because of EOL conversion, lines with fixed contents might be followed
  187. % by one or more blanks.
  188. /lineeq            % <filestr> <conststr> lineeq <bool>
  189.  { anchorsearch
  190.     { pop { ( ) anchorsearch not { () eq exit } if pop } loop }
  191.     { pop false }
  192.    ifelse
  193.  } bind def
  194. /linene { lineeq not } bind def
  195.  
  196. % Read (mostly scan) the cross-reference table.
  197. /readxref        % <pos> readxref <trailerdict>
  198.  { PDFoffset add PDFfile exch setfileposition
  199.         % In some PDF files, this position actually points to
  200.         % white space before the xref line.  Skip over this here.
  201.    { PDFfile fileposition PDFfile read pop 32 gt { exit } if pop
  202.    } loop
  203.    PDFfile exch setfileposition
  204.         % The PDF specification says that the 'xref' must be on a line
  205.         % by itself. The code here formerly used readline and linene to
  206.         % check this. However, Acrobat Reader only requires the line to
  207.         % begin with 'xref', and there are enough applications producing
  208.         % non-compliant PDF files that we have to do this too.
  209.    PDFfile pdfstring 0 4 getinterval readstring pop
  210.    (xref) ne { /readxref cvx /syntaxerror signalerror } if
  211.         % Store the xref table entry position for each object.
  212.         % We only need to read the run headers, not every entry.
  213.     { PDFfile token pop        % first object # or trailer
  214.       dup /trailer eq { pop exit } if
  215.       PDFfile pdfstring readline pop
  216.       token pop            % entry count
  217.       exch pop exch
  218.         % This section might be adding new objects:
  219.         % ensure that Objects and Generations are big enough.
  220.         % Stack: count obj#
  221.       2 copy add growPDFobjects
  222.       PDFfile fileposition 3 -1 roll
  223.        { Objects 2 index lget null eq    % later update might have set it
  224.       { Objects 2 index 2 index cvx lput }
  225.          if exch 1 add exch 20 add
  226.        }
  227.       repeat PDFfile exch setfileposition pop
  228.     } loop
  229.    count /pdfemptycount exch def
  230.    PDFfile traileropdict .pdfrun
  231.  } bind def
  232.  
  233. % Open a PDF file and read the header, trailer, and cross-reference.
  234. /pdfopen {        % <file> pdfopen <dict>
  235.   pdfopenfile begin
  236.   pdfopencache
  237.   .writepdfmarks {
  238.     % Copy bookmarks (outline) to the output.
  239.     Trailer /Root oget /Outlines knownoget {
  240.       /First knownoget {
  241.     { dup writeoutline /Next knownoget not { exit } if } loop
  242.       } if
  243.     } if
  244.   } if        % end .writepdfmarks
  245.   currentdict end
  246. } bind def
  247. /pdfopencache {        % - pdfopencache -
  248.     % Create and initialize some caches.
  249.   /PageCount pdfpagecount def
  250.   /PageNumbers PageCount 65534 .min dict def
  251.   /PageIndex PageCount 65534 .min array def
  252. } bind def
  253. /pdfopenfile {        % <file> pdfopenfile <dict>
  254.    pdfdict readonly pop        % can't do it any earlier than this
  255.    15 dict begin
  256.    /LocalResources 0 dict def
  257.    /DefaultMatrix null def    % establish binding
  258.    /Printed where { pop } {
  259.         % Guess whether the output device is a printer.
  260.      /Printed currentpagedevice /OutputFile known def
  261.    } ifelse
  262.    /PSLevel1 where { pop } { /PSLevel1 false def } ifelse
  263.    cvlit /PDFfile exch def
  264.    /PDFsource PDFfile def
  265.    /Repaired false def
  266.    PDFfile dup 0 setfileposition pdfstring readstring 
  267.    not {/pdfopen cvx /syntaxerror signalerror} if
  268.    (%PDF-) search not {/pdfopen cvx /syntaxerror signalerror} if
  269.    length /PDFoffset exch def pop cvr /PDFversion exch def
  270.    findxref
  271.    initPDFobjects
  272.     % Read the last cross-reference table.
  273.    readxref /Trailer exch def
  274.    Trailer /Encrypt known
  275.     { pdf_process_Encrypt    % signal error
  276.     }
  277.    if
  278.     % Read any previous cross-reference tables.
  279.    Trailer { /Prev .knownget not { exit } if readxref } loop
  280.    Repaired { printrepaired } if
  281.    currentdict end
  282.  } bind def
  283.  
  284. % Skip backward over the %%EOF at the end of the PDF file, and read
  285. % the preceding startxref line.  The PDF specification unambiguously
  286. % requires that the %%EOF appear on a line by itself, and that the
  287. % startxref and the following position value appear on separate lines;
  288. % however, some applications (including, apparently, Acrobat Distiller
  289. % on the Macintosh) may add up to 2K of garbage after the %%EOF, and some
  290. % other applications also truncate the %%EOF to %%EO, and/or put the
  291. % startxref and the following value on the same line.
  292. % A file reported from Distiller 3.02b for AIX 4.1.1 has 2076 bytes
  293. % of garbage. The tolerance is increased to 4K to cover future
  294. % applications and bigger allocation units.
  295. /findxref {        % - findxref <xrefpos>
  296.   PDFfile dup dup 0 setfileposition bytesavailable
  297.   dup /PDFfilelen exch def
  298.     % Find the last %%EOF string (within 4096 bytes)
  299.   4096 sub PDFoffset .max
  300.   2 copy setfileposition
  301.   PDFfilelen exch sub string 1 index exch readstring pop {
  302.     (\015%%EO) search {        % Adobe can handle truncated key string
  303.       pop pop            % if found, keep searching 'post' string
  304.     } {
  305.       (\012%%EO) search
  306.     { pop pop } { exit } ifelse    % exit if neither string found
  307.     } ifelse
  308.   } loop
  309.   PDFfilelen exch length sub 4 sub PDFoffset .max exch 1 index setfileposition
  310.     % Stack: eofpos
  311.     % Check for whether this is, in fact, a valid PDF file.
  312.   dup PDFfilelen exch sub dup dup 7 gt exch 6 lt or {
  313.     pop true
  314.   } {
  315.     string PDFfile exch readstring pop
  316.     dup (%%EOF\n) eq exch dup (%%EOF\r) eq
  317.     exch (%%EOF\r\n) eq or or not
  318.   } ifelse {
  319.     (
  320.    **** This file has a corrupted %%EOF marker, or garbage after the %%EOF.
  321. ) pdfformaterror
  322.   } if
  323.   PDFfile exch setfileposition
  324.     % Now read the startxref and xref start position.
  325.   prevline token not { null } if dup type /integertype eq {
  326.     exch pop cvi        % xref start position
  327.     exch PDFfile exch setfileposition
  328.     prevline (startxref) linene { /findxref cvx /syntaxerror signalerror } if
  329.     pop
  330.   } {    % else, this file has 'startxref #####' format
  331.     (startxref) ne { /findxref cvx /syntaxerror signalerror } if
  332.     cvi        % xref start position
  333.     (
  334.    **** The format of the startxref line in this file is invalid.
  335. ) pdfformaterror
  336.     exch PDFfile exch setfileposition
  337.   } ifelse
  338. } bind def
  339. /stderrfile (%stderr) (w) file def
  340. /stderrprint {                % <string> stderrprint -
  341.   //stderrfile dup 3 -1 roll writestring flushfile
  342. } bind def
  343. /pdfformaterror {    % <string> pdfformaterror -
  344.   stderrprint
  345.   /Repaired true store
  346. } bind def
  347. /printrepaired {
  348.   Trailer /Info knownoget {
  349.     /Producer knownoget not { null } if
  350.   } {
  351.     null
  352.   } ifelse
  353.   dup null eq {
  354.     pop (\
  355.    **** Please notify the author of the software that produced this file
  356. )
  357.   } {
  358.     (   **** The file was produced by ) stderrprint
  359.     % Handle a Unicode Producer.
  360.     (\376\377) anchorsearch {
  361.       pop dup length 2 idiv string 0 1 2 index length 1 sub {
  362.         % Stack: origstr newstr i
  363.     1 index exch 3 index 1 index 2 mul 1 add get put
  364.       } for exch pop
  365.     } if
  366.     stderrprint
  367.     (:
  368.    **** please notify the author of this software
  369. )
  370.   } ifelse stderrprint
  371. (\
  372.    **** that the file does not conform to Adobe's published PDF
  373.    **** specification.  Processing of the file will continue normally.
  374.  
  375. ) stderrprint
  376. } bind def
  377.  
  378. % Write the outline structure for a file.  Uses linkdest (below).
  379. /writeoutline        % <outlinedict> writeoutline -
  380.  { mark
  381.    0 2 index /First knownoget
  382.     { { exch 1 add exch /Next knownoget not { exit } if } loop }
  383.    if
  384.         % stack: dict mark count
  385.    dup 0 eq
  386.     { pop 1 index
  387.     }
  388.     { 2 index /Count knownoget { 0 lt { neg } if } if
  389.       /Count exch 3 index
  390.     }
  391.    ifelse linkdest /Title oget /Title exch /OUT pdfmark
  392.    /First knownoget
  393.     { { dup writeoutline /Next knownoget not { exit } if } loop }
  394.    if
  395.  } bind def
  396.  
  397. % Close a PDF file.
  398. /pdfclose        % <dict> pdfclose -
  399.  { begin
  400.    PDFfile closefile
  401.    end
  402.  } bind def
  403.  
  404. % ======================== Page accessing ======================== %
  405.  
  406. % Get a (possibly inherited) attribute of a page.
  407. /pget            % <pagedict> <key> pget <value> -true-
  408.             % <pagedict> <key> pget -false-
  409.  { 2 copy knownoget
  410.     { exch pop exch pop true
  411.     }
  412.     { exch /Parent knownoget
  413.        { exch pget }
  414.        { pop false }
  415.       ifelse
  416.     }
  417.    ifelse
  418.  } bind def
  419.  
  420. % Get the value of a resource on a given page.
  421. /rget {            % <resname> <pagedict> <restype> rget <value> -true-
  422.             % <resname> <pagedict> <restype> rget -false-
  423.   LocalResources 1 index knownoget {
  424.      3 index knownoget
  425.   } {
  426.     false
  427.   } ifelse {
  428.     exch pop exch pop exch pop true
  429.   } {
  430.     exch /Resources pget {
  431.       exch knownoget { exch knownoget } { pop false } ifelse
  432.     } {
  433.       pop pop false
  434.     } ifelse
  435.   } ifelse
  436. } bind def
  437.  
  438. % Get the total number of pages in the document.
  439. /pdfpagecount        % - pdfpagecount <int>
  440.  { Trailer /Root oget /Pages oget /Count oget
  441.  } bind def
  442.  
  443. % Find the N'th page of the document by iterating through the Pages tree.
  444. % The first page is numbered 1.
  445. /pdffindpageref {        % <int> pdffindpage <objref>
  446.   dup Trailer /Root oget /Pages get
  447.     {        % We should be able to tell when we reach a leaf
  448.         % by finding a Type unequal to /Pages.  Unfortunately,
  449.         % some files distributed by Adobe lack the Type key
  450.         % in some of the Pages nodes!  Instead, we check for Kids.
  451.       dup oforce /Kids knownoget not { exit } if
  452.       exch pop null
  453.       0 1 3 index length 1 sub {
  454.          2 index exch get
  455.      dup oforce dup /Kids known { /Count oget } { pop 1 } ifelse
  456.         % Stack: index kids null noderef count
  457.      dup 5 index ge { pop exch pop exit } if
  458.      5 -1 roll exch sub 4 1 roll pop
  459.       } for exch pop
  460.         % Stack: index null|noderef
  461.       dup null eq { pop pop 1 null exit } if
  462.     } loop
  463.         % Stack: index countleft noderef
  464.    1 index 1 ne { pop pop /pdffindpage cvx /rangecheck signalerror } if
  465.    exch pop
  466.    PageIndex 2 index 1 sub 65533 .min 2 index oforce put
  467.    PageNumbers 1 index oforce 3 index dup 65534 le
  468.     { put }
  469.     { pop pop pop }    % don't store more than 65534 pagenumbers
  470.    ifelse
  471.    exch pop
  472. } bind def
  473. /pdffindpage {        % <int> pdffindpage <pagedict>
  474.   pdffindpageref oforce
  475. } bind def
  476.  
  477. % Find the N'th page of the document.
  478. % The first page is numbered 1.
  479. /pdfgetpage        % <int> pdfgetpage <pagedict>
  480.  { PageIndex 1 index 1 sub dup 65533 lt
  481.     { get }
  482.     { pop pop null }
  483.    ifelse
  484.    dup null ne
  485.     { exch pop oforce }
  486.     { pop pdffindpage }
  487.    ifelse
  488.  } bind def
  489.  
  490. % Find the page number of a page object (inverse of pdfgetpage).
  491. /pdfpagenumber        % <pagedict> pdfpagenumber <int>
  492.  {    % We use the simplest and stupidest of all possible algorithms....
  493.    PageNumbers 1 index .knownget
  494.     { exch pop
  495.     }
  496.     { 1 1 PageCount 1 add    % will give a rangecheck if not found
  497.        { dup pdfgetpage oforce 2 index eq { exit } if pop
  498.        }
  499.       for exch pop
  500.     }
  501.    ifelse
  502.  } bind def
  503.  
  504. % Display a given page.
  505. /boxrect        % [<llx> <lly> <urx> <ury>] boxrect <x> <y> <w> <h>
  506.  { aload pop exch 3 index sub exch 2 index sub
  507.  } bind def
  508. /resolvedest {        % <name|string|other> resolvedest <other|null>
  509.   dup type /nametype eq {
  510.     Trailer /Root oget /Dests knownoget {
  511.       exch knownoget not { null } if
  512.     } {
  513.       null
  514.     } ifelse
  515.   } {
  516.     dup type /stringtype eq {
  517.       Trailer /Root oget /Names knownoget {
  518.     /Dests knownoget {
  519.       exch nameoget
  520.     } {
  521.       pop null
  522.     } ifelse
  523.       } {
  524.     pop null
  525.       } ifelse
  526.     } if
  527.   } ifelse
  528. } bind def
  529. /linkdest {        % <link|outline> linkdest
  530.             %   ([/Page <n>] /View <view> | ) <link|outline>
  531.   dup /Dest knownoget
  532.     { resolvedest
  533.       dup type /dicttype eq { /D knownoget not { null } if } if
  534.       dup null eq
  535.        { pop }
  536.        { dup 0 oget
  537.      dup null eq
  538.       { pop }
  539.       { dup type /integertype ne { pdfpagenumber } if
  540.         /Page exch 4 -2 roll
  541.       }
  542.      ifelse
  543.      dup length 1 sub 1 exch getinterval /View exch 3 -1 roll
  544.        }
  545.       ifelse
  546.     }
  547.    if
  548. } bind def
  549. % <pagedict> mark ... -proc- -
  550. /namedactions 8 dict dup begin
  551.   /FirstPage {
  552.     /Page 1 3 -1 roll
  553.   } def
  554.   /LastPage {
  555.     counttomark 2 add index pdfpagecount /Page exch 3 -1 roll
  556.   } def
  557.   /NextPage {
  558.     counttomark 2 add index pdfpagenumber 1 add /Page exch 3 -1 roll
  559.   } def
  560.   /PrevPage {
  561.     counttomark 2 add index pdfpagenumber 1 sub /Page exch 3 -1 roll
  562.   } def
  563. end readonly def
  564. % <pagedict> <annotdict> -proc- -
  565. /annottypes 5 dict dup begin
  566.   /Text {
  567.     mark exch
  568.      { /Rect /Open /Contents }
  569.      { 2 copy knownoget { 3 -1 roll } { pop } ifelse }
  570.     forall pop /ANN pdfmark
  571.   } bind def
  572.   /Link {
  573.     mark exch
  574.     dup /C knownoget { /Color exch 3 -1 roll } if
  575.      { /Rect /Border }
  576.      { 2 copy knownoget { 3 -1 roll } { pop } ifelse }
  577.     forall dup /A knownoget {
  578.       dup /URI known {
  579.         /A mark 3 2 roll    % <<>> /A [ <<action>>
  580.         { oforce } forall
  581.         .dicttomark
  582.         3 2 roll
  583.       } {
  584.         dup /D knownoget {
  585.       exch pop exch dup length dict copy dup /Dest 4 -1 roll put
  586.         } {
  587.       /N knownoget {        % Assume /S /Named
  588.          namedactions exch .knownget { exec } if
  589.       } if
  590.         } ifelse
  591.       } ifelse
  592.     } if
  593.     linkdest pop /LNK pdfmark
  594.   } bind def
  595. end readonly def
  596.  
  597. /pdfshowpage        % <pagedict> pdfshowpage -
  598.  { dup /Page exch store
  599.    pdfshowpage_init 
  600.    pdfshowpage_setpage 
  601.    pdfshowpage_finish
  602.  } bind def
  603.  
  604. /pdfpagecontents    % <pagedict> pdfpagecontents <contents>
  605.  { } bind def
  606.  
  607. /pdfshowpage_init     % <pagedict> pdfshowpage_init <pagedict>
  608.  { /DSCPageCount DSCPageCount 1 add store
  609.  } bind def
  610.  
  611. /.pdfshowpage_Install {    % <pagedict> [<prevproc>] .pdfshowpage_Install -
  612.   exch
  613.     % We would like to clip to the CropBox here, but the subsequent
  614.     % initgraphics would override it.  Instead, we have to handle it
  615.     % in graphicsbeginpage.
  616.   dup /CropBox pget dup {exch pop} if systemdict /UseCropBox known and {
  617.     dup /CropBox pget pop dup 0 get neg exch 1 get neg translate
  618.   } {
  619.     dup /MediaBox pget {
  620.       dup 0 get neg exch 1 get neg translate
  621.     } if
  622.   } ifelse
  623.   pop 0 get exec
  624. } bind def
  625.  
  626. /pdfshowpage_setpage {    % <pagedict> pdfshowpage_setpage <pagedict>
  627.   4 dict begin        % for setpagedevice
  628.     % Stack: pagedict
  629.   currentpagedevice /Orientation 2 index /Rotate pget not { 0 } if 90 idiv
  630.     % Rotate specifies *clockwise* rotation!
  631.     neg 3 and def
  632.     % Stack: pagedict currentpagedict
  633.   1 index /CropBox pget dup {exch pop} if systemdict /UseCropBox known and {
  634.             % Set the page size.
  635.     1 index /CropBox pget pop
  636.     boxrect 2 array astore /PageSize exch def pop pop
  637.   } {
  638.     1 index /MediaBox pget {
  639.             % Set the page size.
  640.       boxrect 2 array astore /PageSize exch def pop pop
  641.     } if
  642.   } ifelse
  643.   dup /Install .knownget {
  644.             % Don't let the Install procedure get more deeply
  645.             % nested after every page.
  646.       dup type dup /arraytype eq exch /packedarraytype eq or {
  647.     dup length 4 eq {
  648.       dup 2 get /.pdfshowpage_Install load eq {
  649.         1 get 0 get    % previous procedure
  650.       } if
  651.     } if
  652.       } if
  653.   } {
  654.     { }
  655.   } ifelse 1 array astore
  656.   2 index exch /.pdfshowpage_Install load /exec load
  657.   4 packedarray cvx
  658.     % Stack: pagedict currentpagedict installproc
  659.   /Install exch def
  660.     % Stack: pagedict currentpagedict
  661.   pop currentdict end setpagedevice
  662. } bind def
  663.  
  664. /pdfshowpage_finish {    % <pagedict> pdfshowpage_finish -
  665.    save /PDFSave exch store
  666.    (before exec) VMDEBUG
  667.  
  668.   .writepdfmarks {
  669.  
  670.     % Copy the crop box.
  671.     dup /CropBox knownoget {
  672.     % If the page has been rotated, rotate the CropBox.
  673.       mark /CropBox 3 -1 roll
  674.       3 index /Rotate pget {
  675.     90 idiv 1 and 0 ne {
  676.       aload pop 4 -2 roll exch 4 2 roll exch 4 array astore
  677.     } if
  678.       } if
  679.       /PAGE pdfmark
  680.     } if
  681.  
  682.     % Copy annotations and links.
  683.     dup /Annots knownoget {
  684.       0 1 2 index length 1 sub
  685.        { 1 index exch oget
  686.          dup /Subtype oget annottypes exch .knownget { exec } { pop } ifelse
  687.        }
  688.       for pop
  689.     } if
  690.  
  691.   } if        % end .writepdfmarks
  692.  
  693.     % Display the actual page contents.
  694.    6 dict begin
  695.    /BXlevel 0 def
  696.    /BGDefault currentblackgeneration def
  697.    /UCRDefault currentundercolorremoval def
  698.     %****** DOESN'T HANDLE COLOR TRANSFER YET ******
  699.    /TRDefault currenttransfer def
  700.   matrix currentmatrix 2 dict
  701.   2 index /CropBox knownoget {
  702.     boxrect 4 array astore 1 index /ClipRect 3 -1 roll put
  703.   } if
  704.   dictbeginpage /DefaultMatrix 1 index store setmatrix
  705.   dup          % for showing annotations below
  706.   count /pdfemptycount exch store
  707.   gsave
  708.     % If the page uses any transparency features, show it within
  709.     % a transparency group.
  710.   PDFversion 1.4 lt {
  711.     showpagecontents
  712.   } {
  713.     dup pageusestransparency {
  714.       % Show the page within a PDF 1.4 device filter.
  715.       0 .pushpdf14devicefilter {
  716.     % If the page has a Group, enclose contents in transparency group.
  717.         % (Adobe Tech Note 5407, sec 9.2)
  718.         dup /Group knownoget {
  719.       1 index /CropBox knownoget not {
  720.         1 index /MediaBox oget
  721.       } if .beginformgroup {
  722.         showpagecontents
  723.       } .internalstopped {
  724.         .discardtransparencygroup stop
  725.       } if .endtransparencygroup
  726.         } {
  727.       showpagecontents
  728.         } ifelse
  729.       } .internalstopped {
  730.     % todo: discard
  731.     .popdevicefilter stop
  732.       } if .popdevicefilter
  733.     } {
  734.       showpagecontents
  735.     } ifelse
  736.   } ifelse
  737.   grestore
  738.    % todo: mixing drawing ops outside the device filter could cause
  739.    % problems, for example with the pnga device.
  740.    /Annots knownoget { { oforce drawannot } forall } if
  741.    endpage
  742.    end            % scratch dict
  743.    (after exec) VMDEBUG
  744.    PDFSave restore
  745. } bind def
  746. /showpagecontents {    % <pagedict> showpagecontents -
  747.   /Contents knownoget not { 0 array } if
  748.   dup type /arraytype ne { 1 array astore } if {
  749.     oforce false resolvestream pdfopdict .pdfrun
  750.   } forall
  751. } bind def
  752. /processcolorspace {    % - processcolorspace <colorspace>
  753.     % The following is per the PLRM3.
  754.   currentdevice 1 dict dup /ProcessColorModel dup put .getdeviceparams
  755.   exch pop exch pop
  756.   dup type /nametype ne { cvn } if
  757.   dup { setcolorspace } .internalstopped { pop /DeviceRGB } if
  758. } bind def
  759.  
  760. % ------ Transparency support ------ %
  761.  
  762. % Determine whether a page might invoke any transparency features:
  763. %    - Group in the page dictionary
  764. %    - Non-default ca, CA, or SMask in an ExtGState
  765. %    - Form XObject with Group
  766. %    - Image XObject with SMask
  767. % ****** DO WE NEED TO LOOK IN RESOURCE DICTS OF OTHER CONTENT STREAMS? ******
  768. /pageusestransparency {        % <pagedict> pageusestransparency <bool>
  769.   PDFversion 1.4 lt {
  770.     pop false
  771.   } {
  772.     dup /Group known {
  773.       pop true
  774.     } {
  775.       false exch {
  776.     dup resourceusestransparency { pop not exit } if
  777.     /Parent knownoget not { exit } if
  778.       } loop
  779.     } ifelse
  780.   } ifelse
  781. } bind def
  782. % Check the Resources of a page or Form.
  783. /resourceusestransparency {    % <dict> resourceusestransparency <bool>
  784.   {    % Use loop to provide an exitable context.
  785.     /Resources knownoget not { 0 dict } if
  786.     dup /ExtGState knownoget {
  787.       false exch {
  788.     exch pop oforce
  789.     dup /ca knownoget { 1 ne { pop not exit } if } if
  790.     dup /CA knownoget { 1 ne { pop not exit } if } if
  791.     dup /SMask knownoget { /None ne { pop not exit } if } if
  792.     pop
  793.       } forall { pop true exit } if
  794.     } if
  795.     dup /XObject knownoget {
  796.       false exch {
  797.     exch pop oforce dup /Subtype get
  798.     dup /Image eq { 1 index /SMask known { pop pop not exit } if } if
  799.     /Form eq {
  800.       dup /Group known { pop not exit } if
  801.       resourceusestransparency { not exit } if
  802.     } {
  803.       pop
  804.     } ifelse
  805.       } forall { pop true exit } if
  806.     } if
  807.     pop false exit
  808.   } loop
  809. } bind def
  810.  
  811. end            % pdfdict
  812. .setglobal
  813.